library(here)
## Warning: package 'here' was built under R version 4.0.5
## here() starts at D:/Data_Documents/!Github_repos/annual_mvmt
library(knitr)
## Warning: package 'knitr' was built under R version 4.0.5
library(stringr)
# get file names
plots<-list.files(path=here("output/best_mod_plots_pngs"), full.names = T)
ar<-c(grep("[7-9]L", plots), grep("0H_2nd", plots))
ar_paths<-plots[ar]
for(i in seq_along(ar)){
cat(paste0("{#id .class width=50% height=50%}"))
}
ia<-grep("C", plots)
ia_paths<-plots[ia]
for(i in seq_along(ia)){
cat(paste0("{#id .class width=50% height=50%}"))
}
mb<-grep("H", plots)
mb_paths<-plots[mb]
for(i in seq_along(mb)){
cat(paste0("{#id .class width=50% height=50%}"))
}
mi<-grep("[JK]", plots)
mi_paths<-plots[mi]
for(i in seq_along(mi)){
cat(paste0("{#id .class width=50% height=50%}"))
}
mn<-c(grep("[AERT]", plots),
grep("[1-6]L", plots),
grep("9H_2nd", plots),
grep("2H_2nd", plots),
grep("0N_2nd", plots),
grep("6P", plots))
mn_paths<-plots[mn]
for(i in seq_along(mn)){
cat(paste0("{#id .class width=50% height=50%}"))
}
oh<-c(grep("M", plots), grep("N", plots))
oh_paths<-plots[oh]
oh_paths<-oh_paths[!grepl("0N_2nd", oh_paths)]
for(i in seq_along(oh_paths)){
cat(paste0("{#id .class width=50% height=50%}"))
}
wi<-c(grep("[1-5]P", plots), grep("[7-9]P", plots))
wi_paths<-plots[wi]
for(i in seq_along(wi)){
cat(paste0("{#id .class width=50% height=50%}"))
}